
% Pocet prvku:
pocet_prvku(5).

% Pocet vlastnosti:
pocet_vlastnosti(3).

% Vlastnosti, jenz patri k sobe:
% [Narodnost, Bohatstvi, Krajina]
patriksobe(_, [australan, _, poust ] ).
patriksobe(_, [american, nafta, _ ] ).
patriksobe(_, [_, zelezo, hory ] ).
patriksobe(_, [francouz, diamanty, _ ] ).
patriksobe(_, [anglican, _, udoli_reky ] ).
patriksobe(_, [sved, _, _ ] ).
patriksobe(_, [_, opaly, _] ).
patriksobe(_, [_, zlato, _] ).
patriksobe(_, [_, _, morske_dno] ).
patriksobe(_, [_, _, prales] ).

% poradi neni v zadani definovano, proto: (BUNO:)
patriksobe(1, [australan, _, _] ).
patriksobe(2, [american, _, _] ).
patriksobe(3, [francouz, _, _] ).
patriksobe(4, [anglican, _, _] ).
patriksobe(5, [sved, _, _] ).


% Vlastnosti prvku, ktere jsou v sousedkem vztahu vlevo/vpravo (vime, ktery je na ktere strane).
sousede( patriksobe(_,[_,_,_]), patriksobe(_,[_,_,_]) ).

% Vlastnosti prvku, ktere jsou v sousedkem vztahu vedle-sebe (nevime, ktery je na ktere strane).
vedlesebe( patriksobe(_,[_,_,_]), patriksobe(_,[_,_,_]) ).
